home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Bus / H-L / Invoicer.cpt / Outstanding < prev    next >
Encoding:
Text File  |  1987-04-14  |  2.1 KB  |  85 lines  |  [TEXT/MSBA]
  1. CLS
  2. Strt:
  3. OPEN "Customers B" FOR INPUT AS #1
  4. WINDOW 2,"",(25,50)-(476,280),3
  5.   ChkBal:
  6.     WHILE NOT EOF(1)
  7.     INPUT #1, a$,b$,c$
  8.     OPEN a$ FOR INPUT AS #2
  9.     INPUT #2,BF
  10.     IF BF=< 0 THEN CLOSE #2:GOTO ChkBal
  11.     TEXTFACE(1)
  12.     IF LEN (b$) >46 THEN PRINT SPC(1); LEFT$(b$,46);"…";TAB(42);
  13.     IF LEN (b$) > 46 THEN GOTO Skpt
  14.     PRINT SPC(1);b$;
  15.     PRINT TAB(42);
  16.   Skpt:
  17.     PRINT USING "$#####.##";BF
  18.     BT=BT+BF
  19.     CLOSE #2
  20.     WEND
  21.     CLOSE #1
  22.     PRINT:TEXTFACE(1): TEXTSIZE(18):PRINT"TOTAL OUTSTANDING:";
  23.     TEXTSIZE(12)
  24.     PRINT TAB(42);
  25.     PRINT USING"$#####.##";BT;
  26.     BT=0
  27.   
  28.   YourChoice:
  29.     WINDOW 3,"",(25,285)-(476,330),-3
  30.     BUTTON 1,1,"again",(55,10)-(130,35),1
  31.     BUTTON 2,1,"print",(192,10)-(267,35),1
  32.     BUTTON 3,1,"quit",(329,10)-(404,35),1
  33.     WHILE DIALOG(0)<>1:WEND
  34.     ButtonPushed =DIALOG(1)
  35.     IF ButtonPushed =1 THEN Strt
  36.     IF ButtonPushed =2 THEN PrntWarning
  37.     IF ButtonPushed =3 THEN WINDOW CLOSE 2:WINDOW CLOSE 3:LOAD "Open Me First",R
  38.     
  39.   PrntWarning:
  40.     WINDOW 4,"",(115,120)-(375,200),-2
  41.     TEXTFACE(1)
  42.     PRINT"Please make sure printer is turned"
  43.     PRINT"on and loaded with paper."
  44.     BUTTON 1,1,"OK",(105,45)-(165,65),1
  45.     BUTTON 2,1,"cancel",(185,45)-(245,65),1
  46.     WHILE DIALOG(0)<>1:WEND
  47.     ButtonPushed =DIALOG(1)
  48.     IF ButtonPushed=1 THEN WINDOW CLOSE 4:WINDOW OUTPUT 2:CLS:GOTO Prnt
  49.     IF ButtonPushed=2 THEN WINDOW CLOSE 4:WINDOW OUTPUT 2:CLS:GOTO YourChoice
  50.   Prnt:
  51.     OPEN "Customers B" FOR INPUT AS #1
  52.     LPRINT CHR$(27);"X"
  53.     LPRINT"OUTSTANDING (as of ";DATE$;")"
  54.     LPRINT CHR$(27);"Y";
  55.     LPRINT CHR$(13)
  56.   ChkBl:
  57.     WHILE NOT EOF(1)
  58.     INPUT #1, a$,b$,c$
  59.     OPEN a$ FOR INPUT AS #2
  60.     INPUT #2,BF
  61.     IF BF=< 0 THEN CLOSE #2:GOTO ChkBl
  62.     IF LEN (b$) >57 THEN LPRINT LEFT$(b$,57);"...";
  63.     IF LEN (b$) > 57 THEN GOTO Skipt
  64.     LPRINT b$;
  65.   Skipt:
  66.     LPRINT TAB(60);
  67.     LPRINT USING "$######.##";BF
  68.     BT=BT+BF
  69.     CLOSE #2
  70.     WEND
  71.     CLOSE #1
  72.     LPRINT CHR$(13)
  73.     LPRINT"TOTAL OWED:";
  74.     LPRINT TAB(60);
  75.     LPRINT USING"$######.##";BT
  76.     LPRINT CHR$(13)
  77.     BT=0
  78.     GOTO YourChoice
  79.  
  80.   
  81.   
  82.   
  83.  
  84.  
  85.